home *** CD-ROM | disk | FTP | other *** search
/ TOS Silver 2000 / TOS Silver 2000.iso / programm / MM2_DEV / S / MYUTIL / SET_MPB.M < prev    next >
Encoding:
Text File  |  1991-08-10  |  584 b   |  31 lines
  1. MODULE T;
  2.  
  3. FROM SYSTEM IMPORT ASSEMBLER;
  4.  
  5. BEGIN
  6.   ASSEMBLER
  7.         BREAK
  8.         PEA     x(PC)
  9.         MOVE    #38,-(A7)
  10.         TRAP    #14
  11.         ADDQ.L  #6,A7
  12.         RTS
  13.       x MOVE.L  $4F2,A0
  14.         MOVE.L  2(A0),D0
  15.         MOVE.L  #$56EC,D1
  16.         CMPI.W  #$0100,D0
  17.         BEQ     ok
  18.         MOVE.L  #$7E8E,D1
  19.         CMPI.W  #$0102,D0
  20.         BEQ     ok
  21.         MOVE.L  #$5328,D1
  22.         CMPI.W  #$0104,D0
  23.         BEQ     ok
  24.         MOVE.L  #$578E,D1
  25.         CMPI.W  #$0205,D0
  26.         BEQ     ok
  27.         CLR.L   D1
  28.       ok NOP
  29.   END
  30. END T.
  31.